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Copyright (C) 1986. 

S&H Computer Systems* Inc. 
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i Overlay id 

; Processor Status Word 



Macro calls 

. MCALL . F'PRQT, . LOOKUP, . PURGE 
Global definitions 

. GLOBL LDMEMT, LDDEMT* LDIEMT, LDAEMT 

Global references 

. GLOBL CXTRMN, R«CHN, R*XCHN> CHNSIZ, NLCHN 

. GLOBL LDSIZE, C. DEVG, C. SBLK, CSSRON, LDBASE, LDDEVX 

. GLOBL OVRHC, CHNADR, CSSOPN, C. CSW, SETERR, EMTBLK, MAXLD 

. GLOBL VLDSYS, VALADW* CSIFIL, CSIARE, LDNAME, LDFLAG 

GLOBL LD*R0N, SERFLG, EMTXIT, LDPDEV, MAXASN, ASNTBL, AT$L0G 

. GLOBL AT**SZ, ATSDEV, AT*FIL» AT*EXT, ATSSIZ, SYNAME 

. GLOBL RESDEV.. 0KF.ILE, OKFAND, OKFNND, OF*FIL, 0F$*SZ, OFSDEV 

. GLOBL 0F*UNT, 0F*FLG, OT*RON, WLDNAM 

Data areas 

nJULW. . KHUDU /L.LIU/ 



R5GLD7: 
R50LD: 
R50DK: 
R50SY: 



RAD50 /LD7/ 



. RAD 50 

RAD50 

. RAD50 



/LD / 
/DK / 



EMI arg block to enable caching for a device 



MNTARG 1 



BYTE 

WORD 



n, 134 
CSIARE 



EMI btq block to dismount a device 
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. MACRO DISABL 

BIS #340, @#PS 

. ENDM DISABL 

. MACRO ENABL 

n r /' v ThiTo **v t /a -H r* <: ? 

. ENDM ENABL 



> DISABLE INTERRUPTS 



i ENABLE INTERRUPTS 



Macro to print an error message when a system crash occurs. 

r-*r tf UIOem u S I 

MSG — Name of error messap to print 

ARO « (Optional) argument value to display with error message. 

. GLQBL DIEMSG, DIEARG, SYSHLT 

. MACRO DIE MGG, ARC 

MOV MSG, ©#DIEM8G 

. IF- MB, ARG 

MOV ARG. @#DIEAHG 
. ENDC 

CALL ©#SYSHL I 

EMDM DIE 



Macro definition for calling global routines residing in mapped 
system regions. 

. MACRO OCALL ENTADD 
.IF B.- ENTADD 

.ERROR ; OCALL SPECIFIED WITH NO ENTRY ADDRESS 

. MEX.TT 
. ENDC 
CALL OVRHC i CALL THE OVERLAY HANDLER 

WORD ENTADD i SPECIFY THE ENTRY POINT 

. ENDM 



( 

I 
t 
I 

f 

< 
f 
t 

i 
I 

i 



( 

4 



> 



< 



TSEM5 TSX-Plus EMT Overlay MACRO V05. 05 Wednesday iB-Jan-99 12:11 Page 3 
LDMEMT — EMT to mount a logical disk 



I f 

I 
i 

i < 

1 i 

i 



C 
i 



< 
< 



I 
1 < 

, i 
< 



3 
4 
5 
6 

7 
R 



11 
12 
i 3 
14 
15 
16 
17 
18 
19 
20 

C J. 

22 

£5. v3 

24 



000024 
000030 
000036 

000040 
000042 



000046 
000052 
000056 



36 000064 



27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 

45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



000070 
000074 
000076 
000102 



000106 
000110 
000112 
000116 
000122 
000124 
000130 



000134 
000140 
000142 
000146 
000152 
000156 
000160 
000162 



UiJ/UJ 

032763 
001403 
005000 

(X;u iJ/ 



11 J 702 

020227 

103404 
012700 
000137 



105737 
001004 
012700 
000137 



006302 
010200 
072027 
005760 
001404 
012700 
000137 



013700 
001423 
004737 
012704 
1 2703 
106520 
012624 
077303 



uuOOuuw 
OOOOOOG OOOOOOG 



OOOOOOG 



000002W 
OOOOOOG 

00000 1 
OOOOOOG 



OOOOOOG 

000002 
OOOOOOG 



000002 
OOOOOOG 

000003 
OOOOOOG 



000004G 

OOOOOOG 
OOOOOOG 
000004 



>-*!■* 1 II 



i i lpnj- m [ 



U.H \ td fnouni' c! iunitai q 3, t> k 



EMT to mount a logical dit. k: 
Argument block format: 

. BYTE chan.. 163 
. BYTE Id jiumber, flags 
WORD file spec pointer 



Make sure the specified channel is closed 

MOV CHN'ADRj R3 > Get address of channel block 
BIT #CS$QP1M, C. CSW<R3)> Is the channel open or closed? 
BEG 1* ; Br if closed 

CLR RO i Error - Channel is open 

JMP SETERR 

Make sure the logical disk number is valid 



J*: 



WUVJP 


EMTBLK+2, RJ-i 


CMP 


R2> #MAXLD 


BLO 


2* 


MOV 


#1, RO 


JMP 


SETERR 



Get specified LD number 
Must be in range - MAXLD 

Br if ok 

Error .1. — Invalid LD number 



Make sure LD support included in system 



»*: 



TSTB 


VLDSYS 


BNE 


3* 


MOV 


#2, RO 


JMP 


SETERR 



Is LD support included in system? 

Br if yes 

Error 2 — LD support not included in system 



Error if this LD is already mounted 



3*: ASL R2 

MOV R2, RO 

ASH #2, RO 

1ST LDNAME(RO) 

BEG 4* 

MOV #3. , RO 

JMP SETERR 



» Get LD index 

; Get LD index 

> Convert to index into LDNAME table 

; Is this LD unit already mounted? 

i Br if not 

; Error 3 — LD unit already mounted 



Move file spec to internal buffer 



4*: 



5*: 



MOV 


EMTBLK+4, RO 


BEG 


6* 


CALL 


VALADW 


MOV 


#CSIFIL» R4 


MOV 


#4, R3 


MFPD 


(R0) + 


MOV 


(RPU. { R45 + 


SOB 


R3, 5* 



; Get address of user's file spec 

j Br if no file spec specified 

; Ma k e sure it is valid 

; Point to area where we will store file spec 

; Get # words to move 

i Get word from user's area 

; Move to internal area 

; Loop till all of file spec moved 



Translate logical file device name to physical device 

and make sure we have a non-null file name. 
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6*: 



MO I J 
1"IUP V 




CALL 


LQGASN 


TST 


CSIFIL 


BEG 


6* 


TST 


CSIFIL+2 


BiME 


7* 


MOV 


#4. , R0 




errcroo 



spec vG Be ^rans^ated 
Do the assign 
Is device name null? 
Br if yes 

Is file name null? 
Br if not 
Error 4 — Invalid file spec 



Make sure file is not on same LD as is being mounted 



MOV 




CALL 


LDDEVN ; 


BOS 


8* i 


CMP 


R0, R2 j 


BL.0 


8* ; 


MOV 


#5. , R0 > 


JMP 


SETERR 



on 



Bee if file is on a LD device 

Br if not 

Is it on a lower # LD? 

Br if yes 

Error 5 — File is on an invalid LD 
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Move file name into logical disk name table 



8*: 



9$: 



MOV 


R2, R5 


ASH 


#2, R5 


ADL> 


#LDNAME. R5 


MOV 


#CSIFIL, R4 


MOV 


#4, RO 


MOV 


<R4>+, <R5> + 


SOB 


RO, 9* 



Get LD index number 

Cvt to index into name table 

Point to name entry for this LD 

Point to cell with file spec 

Get # words to move 

Move file spec into LD name table 

Loop till all of spec moved 



Set up flags for logical disk 



CLR 
TSTB 

BEG 
BIS 



LDFLAG<R2) ; Clear all flags 

EMTBLK+3 jWas NOWRITE flag specified? 

10$ i Br if not 

#LD*R0N, LDFLAG<R2)i Set NOWRITE flag to the LD 



Lookup file and set up information about position of logical 
disk on physical disk. 

10*: MOVB EMTBLK, R3 .Get channel # for lookup 

; Set up info about file for logical disk 

; Br if ok 

; Error 6 — Cannot lookup file 

; Error on lookup 



MOVB 


EMTBLK, 


R3 


CALL. 


LDMNT 




BCC 


11* 




MOV 


#6. , RO 




JMP 


SETERR 





; Protect the file 

11*: MOVB SERFLO. -<SP> 
MOVB #1,SERFLG 
MOVB EMTBLK, R3 



; Save hard-error flag 

; Don't abort on hard errors 

.Get channel number 



. FPROT #CSIARE. R3, ttCSIFIL, #1 > Protect the file 
MOVB < SP ) +. SERFLG i Restore error control 

Initiate directory caching 

MOVB EMTBLK+2, RO ; Get LD # 
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j Add "LD0" to form rad50 device name 
; Store in cell pointed to by arg block 
; Point to EMT argument block 
> Enable caching for the device 

Now do a SET LD CLEAN operation to make sure all logical disks 
are set up correctly. 



ADD 


R 50L.D0; RO 


MOV 


ROj csiare 


MOV 


#MNTAR<3, RO 


EMT 


375 



nuvD 

CALL LDCLEN 

Finished mounting the EMI 

JMP EMTXIT 



iSet channel number For lookups 
; Do SET LD CLEAN 
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The form of the EMT used to dismount a logical disk is: 



BYTE 
BYTE 



3, 135 

Id uni t> O 



LDDEMT: 






MOVB EMTBLK+2, R2 
^nr r«e:» wri«Ai_ju 
BLO 1* 
MOV #1,R0 
JMP SETERR 

See if the LD is active 



1$: 



ASL 
MOV 
ABH 
TST 
BNE 
CLR 
JMP 



R2 

R2, RO 

#2, RO 

LDNAME(RO) 

2* 

RO 

SETERR 



Try to do the dismount 



2$: CALL 


LDDMT 


BCC 


3* 


MOV 


#3. , RO 


JMP 


SETERR 


i F i n :i s h e cl 




3*: JMP 


EMTXIT 



j Get LD unit # 

. r? _. „ ,: ii .. , ^ 1 ,: A 
/ jet: J. I vanu 

j Br if ok 

i Error i — Invalid LD # 



Convert to unit index 

Qet unit index 

Convert to index into LDNAME table 

Is this LD mounted?' 

Br if yeB 

Error O — Specified LL> is not mounted 



; Try to dismount the LD 

; Br if ok 

i Error 3 — Open file on LD being dismounted 



jFinished with dismount EMT 
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. SBTTL LDIEMT — EMT to get information about a logical disk 

The LDIEMT is used to obtain information about a logical disk structure. 

The form of the argument block is: 

. BYTE 4, 135 

. BYTE ld_number, 

. WORD buffer_pointer 

LDIEMT: 

Make sure the LD unit number is valid 

; Get LD unit # 

; See if val id 

i Br if ok 

;Error 1 — Invalid LD # 



MOVB 


EMTBLK+2, R2 


CMP 


R2, #MAXLD 


BLO 


7* 


MOV 


#i,RO 


JMP 


SETERR 



Make sure the buffer address is valid 



7*: 



MOV EMTBLK+4, RO 
CALL VALADW 



; Get address of buffer 
iliake sure it is valid 



Transfer the LD file name to the buffer 



1*: 



ASL 


R2 


MOV 


R2, R3 


ASH 


#2, R3 


ADD 


#LDNAME» R3 


TST 


(R3) 


BEQ 


2* 


MOV 


#4, R4 


MOV 


(R3)+, -(SP) 


MTPD 


(R0) + 


SOB 


R4, 1* 



Get LD unit index 

Get LD unit index 

Cvt to index into LDNAME table 

Point to LDNAME entry 

Is there a specified file name? 

Br if not 

Move 4 words 

Move a word of the file name 

to user's buffer 



Pass flag word 



5*: 



6*: 



;Start with all flags off 
#LD*RON, LDFLAG<R2)j Is read-only flag set? 

; Br if not 

.Set read-only flag for return 
i Is LD currently accessible? 
i Br if yes 

j Set not-accessible flag 
; Move flag word to user's buffer 



CLR 


-<SP) 


BIT 


#LD*RON, LD 


BEG 


5* 


BIS 


#1, (SP) 


TST 


LDPDEV<R2) 


BNE 


6$ 


BIS 


#2, (SP) 


MTPD 


(R0) + 


BR 


9* 



This LD is not active. 

Return all zeroes to user's buffer 



2*: 
4*: 



MOV 


#5, R4 


CLR 


-(SP) 


MTPD 


(R0) + 


SOB 


R4, 4* 



; We will move 5 words of zeroes 
.Move 5 words of zeroes 



t 

i 
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58 

59 > Finished 

60 i 

61 000670 000137 0000000 9*: JMP EMTXIT ; Finished with EMT 
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6 








7 








8 


000674 






9 








10 








11 








12 


000674 


005001 




13 


000676 


005002 




14 








15 








16 








17 


000700 






18 








19 








20 








21 


000700 


010200 




22 


000702 


072027 


000002 


23 


000706 


005760 


OOOOOOG 


24 


000712 


001405 




25 








26 








27 








28 


000714 


004737 


000760 ' 


29 


000720 


103002 




30 


000722 


012701 


000001 


31 


000726 






32 


000726 


062702 


000002 


33 


000732 


020227 


000020 


34 


000736 


002760 




35 


000740 


005701 




36 


000742 


001404 




37 


000744 


012700 


000003 


38 


000750 


000137 


OOOOOOG 


39 








40 








41 








42 


000754 


000137 


OOOOOOG 


43 
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. SBTTL LDAEMT 



Dismount all logical disks 



The form of the argument block is: 
. BYTE 5, 135 
. WORD 

LDAEMT: 

Set up for loop to dismount all logical disks 



CLR 
CLR 



Rl 

R2 



; Set up error flag 

> First LD to be dismounted 



Loop to dismount all logical disks 



1*: 



See if the LD is active 

MOV R2, RO 

ASH #2, RO 

TST LDNAME<RO> 

BEG 2$ 

Dismount logical disks 



CALL 


LDDMT 


BCC 


2* 


MOV 


#i, Ri 


2*: 




ADD 


#2, R2 


CMP 


R2, #16 


BLT 


1* 


TST 


Rl 


BEG 


3* 


MOV 


#3, RO 


JMP 


SETERR 


; Finished 




3*: JMP 


EMTXIT 



> Get unit index 

iConvert to index into LDNAME table 

; Is this LD mounted? 

i Br if no 



; Attempt to dismount LD 

;Br if OK 

; Set error flag 

; Increment logical disk 

iAll done? 

; Loop if not 

; Was an error encountered? 

i Br if not 

; Error #3 ==> LD has open files 



I 

I 



TSEM5 


TSX-Plus EMT Ov 


erlay MACRO V 


LDDMT - 


— Dismount a lo 


gical disk 


i 

2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 


000760 






14 








15 








16 








17 


000760 


004737 


002206 ' 


18 


000764 


103430 




19 








20 








21 








22 


000766 


010200 




23 


000770 


006200 




24 


000772 


063700 


000002 ' 


25 


000776 


010037 


OOOOOOG 


26 


001002 


113746 


OOOOOOG 


27 


001006 


112737 


oooooi ooooooe 


28 


001014 


012700 


000020 ' 


29 


001020 


104375 




30 


001022 


112637 


ooooooe 


31 








32 








33 








34 


001026 


005062 


ooooooe 


35 


001032 


010200 




36 


001034 


072027 


000002 


37 


001040 


005060 


OOOOOOG 


38 








39 








40 








41 








42 








43 








44 








45 








46 


001044 


000241 




47 








48 








49 








50 


001046 


000207 





. SBTTL LDDMT — Dismount a logical disk 

Dismount a logical disk 

Inputs: 
R2 = LD device index 

Outputs: 
C-flag cleared =-> No error on dismount 
C-flag set ==> Error on dismount. Open file on LD being dismounted. 

LDDMT: 

i 

■> Error if this job has any open files on LD being dismounted 



CALL 
BCS 



LDOFCK 
9* 



> Any open files on this LD? 

; Br if open file on LD being dismounted 



Stop doing directory caching for the device 



MOV 


R2, RO 


ASR 


RO 


ADD 


R50LD0, RO 


MOV 


RO, CSIARE 


MOVB 


SERFLG, -<SP> 


MOVB 


#1, SERFLG 


MOV 


#DMTARG, RO 


EMT 


375 


MOVB 


<SP>+, SERFLG 



Get the LD unit index 

Convert to unit number 

Add "LDO" to form device name 

Store in work cell 

Save error control flag 

Suppress aborts 

Stop caching on device 

; Reset error control 



Clear logical disk data tables 



CLR LDPDEV<R2> 

MOV R2, RO 

ASH #2, RO 

CLR LDNAME(RO) 



> No physical device assignment 

; Get unit index 

; Convert to index into LDNAME table 

> No file associated with LD 



Deassign any logical names assigned to this LD 



MOV 


CSIARE, RO 


CALL 


DEADEV 


Successfully 


finished 


CLC 





; Get LD device name 

j Deassign any logical names 



Signal success on return 



j Finished 

J 

9*: RETURN 



< 

i 

I 

( 

i 

< 
i 



t 
i 
i 



TSEM5 
LDCLEN - 

i 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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. SBTTL LDCLEN — Perform SET LD CLEAN operation 

LDCLEN is called to perform the SET LD CLEAN function. 

It also causes the file directory cache to be cleaned out, 

Inputs: 
R3 = Number of free channel to use for lookup 
CHNADR - Pointer to channel block of free channel 



001050 010246 
001052 010546 



001054 013705 000002 
001060 005002 



001062 010200 

001064 072027 000002 

001070 005760 OOOOOOG 

001074 001426 



001076 010537 OOOOOOG 

001102 113746 OOOOOOG 

001106 112737 000001 OOOOOOG 

001114 012700 000020' 

001120 104375 

00 1 1 22 11 2637 OOOOOOG 



001126 004737 001174' 



001132 005762 OOOOOOG 

001136 001405 

001140 010537 OOOOOOG 

001144 012700 000014' 

001150 104375 



001152 005205 

001154 062702 000002 

001160 020227 OOOOOOC 

001164 103736 



001166 012605 
001170 012602 
001172 000207 



LDCLEN: MOV 
MOV 



R2, -<SP> 
R5, -<SP> 



Perform LD CLEAN operation (reset logical disk information) 



MOV 
CLR 



R SOLDO, R5 
R2 



;Get name of first logical disk <LDO) 
; Get index to 1st logical disk 



See if this logical disk is in use 



1*: 



MOV 


R2, RO 


ASH 


#2, RO 


TST 


LDNAME<RO) 


BEQ 


2$ 



Dismount the logical disk 



MOV 


R5, CSIARE 


MOVB 


SERFLG, -<SP> 


MOVB 


#1/ SERFLG 


MOV 


#DMTARG, RO 


EMT 


375 


MOVB 


(SP>+, SERFLG 



;Get LD index number 

/Convert to index into LDNAME table 

; Is this logical disk in use? 

; Br if not 



Set device name to be dismounted 

Save error control 

Do . SERR 

Point to EMT argument block 

Dismount the device 

Restore error control 



Now reinitialize information about the logical disk 



CALL LDMNT 
Now remount the logical disk 



TST 




LDPDEV(R2) 


BEQ 




2* 


MOV 




R5, CSIARE 


MOV 




#MNTARG. RO 


EMT 




375 


; Check the 


next logical dis 


2*: INC 




R5 


ADD 




#2, R2 


CMP 




R2, #<2*MAXLD> 


BLO 




1* 


* 

; Finished 






MOV 




<SP>+/R5 


MOV 




<SP>+, R2 


RETURN 





Reset information about the LD 



> Is the logical disk there? 
j Br if not 

; Set device name for the mount 
/Mount the device 



/Advance LDn number 

/Advance logical disk index number 

; More LD's to check? 

;Br if yes 



i 

i 

i 



t 
< 

i 
i 
i 
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Page 9 



1 

2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 








16 








17 








18 001174 


010446 




L 


19 001176 


010546 






20 








21 








22 








23 001200 


004737 


002060 ' 




24 








25 








26 








27 001204 


010205 






28 001206 


072527 


000002 




29 001212 


062705 


OOOOOOG 




30 001216 


005715 






31 001220 


001474 






32 001222 


1 1 3746 


OOOOOOG 




33 001226 


112737 


000001 


OOOOOOG 


34 001234 








35 001254 


112637 


OOOOOOG 




36 001260 


103454 






37 001262 


010062 


OOOOOOG 




38 








39 








40 








41 001266 


013705 


OOOOOOG 




42 001272 


016500 


OOOOOOG 




43 001276 


042700 


177701 




44 001302 


1 1 0062 


OOOOOOG 




45 001306 


116504 


OOOOOOG 




46 001312 


042704 


177770 




47 001316 


110462 


00000 1G 




48 001322 


016562 


OOOOOOG 


OOOOOOG 


49 








50 








51 








52 








53 001330 


032765 


OOOOOOG 


OOOOOOG 


54 001336 


001403 






55 001340 


052762 


OOOOOOG 


OOOOOOG 


56 






> 


57 






i 



. SBTTL LDMNT — Set up information about LD being mounted 

LDMNT is called to set up information about a logical disk. 

Inputs: 
R2 = LD unit index 

R3 « Channel number to use for lookup 

CHNADR = Pointer to channel block for channel used for lookup 
EMTBLK (byte 0) = Free channel to use for looking up file. 
LDNAME(unit) - Name of file associated with logical disk. 

Outputs: 
LDPDEV(unit) — Physical device index # and unit # 
LDSIZE<unit) = Size of file 

LDBASE<unit) = Base block on physical disk of start of logical disk. 
Carry-flag is set on return if file cannot be found. 



LDMNT: MOV 
MOV 



R4, -<SP> 
R5, -(SP> 



Remove any entry for this logical disk from access control table 



CALL DLLDAC 

Do lookup on file 

MOV R2, R5 

ASH #2, R5 

ADD #LDNAME, R5 

TST (R5) 

BEQ 9* 

MOVB SERFLG, -<SP) 

MOVB #1, SERFLG 

. LOOKUP #CSIARE, R3, R5 

MOVB < SP ) +, SERFLG 

BCS 9* 

MOV RO, LDSIZECR2) 



i Remove LD entry from access control table 



Get LD unit index 

4 words per entry 

Point to file spec in LDNAME table 

Is there a file spec for this LD? 

Br if not 

Save error control byte 

Suppress error aborts 

Lookup the file 

Restore error control byte 

Br if could not find the file 

Save the size of the file 



Set up information about the file 



MOV 

MOV 

BIC 

MOVB 

MOVB 

BIC 

MOVB 

MOV 



CHNADR, R5 

C. CSW<R5>,R0 

# A C<76>, RO 

RO, LDPDEVCR2) 

C. DEVQ<R5),R4 

# A C<7>, R4 

R4, LDPDEV+KR2) 



Get pointer to channel block 

Get channel status word 

Extract device index number 

Save physical device index number 

Get physical unit number 

Extract unit number 

Save unit # 



C. SBLK<R5>, LDBASE<R2> ; Get base block # of file on disk 



If we have read-only access to the file associated with the 
logical disk, set no-write flag for this LD entry. 

BIT #CS*RON» C. CSW<R5)j Do we have read-only access to the file? 

BEQ 2* j Br if not 

BIS #LD*RON, LDFLAG<R2); Set no-write flag for this LD 

See if the logical disk file is itself within a logical disk 



I 



i 
t 
< 
i 
< 
< 
€ 
I 
C 
« 

4 
i 



> i 



( 
i 

1 « 

I 
i i 

t 

t 

I 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 



001346 020037 OOOOOOG 

001352 001007 

001354 006304 

001356 016462 OOOOOOG OOOOOOG 

001364 066462 OOOOOOG OOOOOOG 



001 372 



001402 004737 001704' 



001406 000241 
001410 000403 



001412 005062 OOOOOOG 

001416 000261 

001420 012605 

001422 012604 

001424 000207 



■> {i.e., this is a nested logical disk) 

> 

2*: CMP RO, LDDEVX > Is file on a logical disk? 

BNE 1* J Br if not 

ASL R4 > Cvt unit # to logical disk table index 

MOV LDPDEV<R4>, LDPDEV<R2) .Get real physical device & unit # 

ADD LDBASECR4), LDBASE<R2) ; Bias base block # by log disk base 

Purge the channel we used to open the file 

1$: .PURGE R3 > Purge channel we opened to the file 

Make entry for the LD in the access control table 

CALL ADLDAC ;Make entry in access control table 

Success 



CLC 
BR 



> Signal success on return 



10* 

Error — Could not find the file 
9*: CLR LDPDEV(R2) 



CLR 
SEC 
10*: MOV <SP)+, R5 
MOV CSP>+, R4 
RETURN 



> Say logical disk is not active 
; Signal error on return 



t 

i 
i 

f 

i 

i 

( 

l 

« 

i 

i 

i 

f 

« 

i 

i 
{ 



i 
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i 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 



001426 
001430 
001434 
001440 
001444 
001446 
001452 
001454 
001456 
001460 
001462 
001464 



010146 
012701 
012702 
020062 
001405 
062702 
077106 
000261 
000401 
000241 
012601 
000207 



OOOOOOG 
0000000 
OOOOOOG 

OOOOOOG 



, SBTTL ASNSRC — Search assign table for logical name 

ASNSRC is called to search the assign table for an entry 
with a specified logical name. 

Inputs: 
RO - Logical name to search for. 

Outputs: 
C-flag set on return if no assign block found with matching name. 
R2 = Address of assign block if one found. 



i Get # assign entries 

iPoint to assign table 

; Compare logical names 

; Br if we found entry we are looking for 

/Point to next assign block 

i Loop if more blocks to check 

i Signal f ai lure 

; Signal success 



ASNSRC: 


MOV 


R1,-<SP> 




MOV 


#MAXASN»R1 




MOV 


#ASNTBL, R2 


1*: 


CMP 


RO, AT*L0G(R2) 




BEQ 


2* 




ADD 


#AT**SZ> R2 




SOB 


Rl, 1$ 




SEC 






BR 


3* 


2*: 


CLC 




3*: 


MOV 
RETURN 


<SP>+, Rl 



i 

€ 
€ 






I 

I 

I 

c 
t 
I 
{ 
( 
( 

* t 

i 

» < 
I 
f 

( 

i, 
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1 

2 






3 






4 






5 






6 






7 






8 






9 






10 






11 






12 






13 






14 






15 






16 001466 


010246 




17 001470 


010446 




IS 






19 






20 






21 001472 


011500 




22 001474 


004737 


001426' 


23 001500 


103421 




24 






25 






26 






27 






28 001502 


010504 




29 001504 


016224 


OOOOOOG 


30 001510 


016200 


OOOOOOQ 


31 001514 


001413 




32 001516 


010024 




33 001520 


016224 


000002G 


34 001524 


016200 


OOOOOOG 


35 001530 


001405 




36 001532 


010024 




37 001534 


016200 


OOOOOOG 


38 001540 


001401 




39 001542 


010014 




40 






41 






42 






43 001544 


021537 


000012' 


44 001550 


001403 




45 001552 


021537 


000010' 


46 001556 


001002 




47 001560 


013715 


OOOOOOG 


48 






49 






50 






51 001564 


012604 




52 001566 


012602 




53 001570 


000207 
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assignment 

. SBTTL LOGASN — Perform full logical device assignment 

LOGASN is called to perform a full logical device name assignment. 
The logical name associated with a file specification is translated 
into the corresponding physical device. The file name* extension* 
and size may also be translated if a file spec was specified with 
the assignment of the logical name. 

Inputs: 
R5 = Pointer to 5 word block containing file spec (dev, file* fi le, ext, size) 

Outputs: 
File spec is updated to have physical device name and possibly 
altered file name. 



LOGASN: MOV 
MOV 



R2, -<SP> 
R4, -<SP> 



See if device name is in our assign table 



MOV 


<R5),R0 


CALL 


ASNSRC 


BCS 


1* 



i Get logical device name 

> See if name is in assign table 

i Br if name is not in assign table 

Found logical device name in the assign table. 
Translate to physical device. 

MOV R5» R4 .Get pointer to file spec buffer 

MOV AT*DEV(R2)» <R4)+; Put in physical device name 

MOV AT*FIL(R2>, RO ; Was file name assigned? 

BEG 1* ; Br if not 

MOV R0> <R4) + i Translate file name 

MOV AT*FIL+2<R2>, <R4)+ 

MOV AT*EXT<R2)> RO ) Was file extension specified? 

BEQ 1* ; Br if not 

MOV R0> (R4)+ .Translate file extension 

MOV AT*SIZ<R2),R0 i Was file size specified? 

BEQ 1* ; Br if not 

MOV RO, <R4) ^Translate file size 

Translate "DK" and "SY" to physical device names 



1*: 



2*: 



CMP 
BEQ 
CMP 
BNE 
MOV 

Finished 



3*: 



MOV 
MOV 
RETURN 



<R5),R50SY 

2* 

<R5),R50DK 

3* 

SYNAME, <R5) 



(SP)+, R4 
<SP)+, R2 



; Is device name "SY"? 

; Br if yes 

i Is device name "DK"? 

; Br if not 

{Translate to physical device 



TSEM5 TSX-Plus EMT Overlay MACRO V05. 05 
DEADEV — Deassign physical device 



i 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 



001572 
001574 
001576 
001602 
001606 
001612 
001614 
001620 
001624 
001630 
001632 
001634 
001636 



010246 
010346 
012702 
012703 
020062 
001004 
005062 
005062 
062702 
077312 
012603 
012602 
000207 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
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SBTTL DEADEV — Deassign physical device 



DEADEV is called to remove from the assign table all entries 
for logical device names that are assigned to a specified 
physical device. 

Inputs: 
RO = Name of physical device. 



DEADEV: MOV 
MOV 
MOV 
MOV 

1*: CMP 
BNE 
CLR 
CLR 

2*: ADD 
SOB 
MOV 
MOV 



R2, -<SP) 
R3, -<SP> 
#ASNTBL, R2 
#MAXASN, R3 
RO, AT*DEV(R2) 
2$ 

AT*L0G<R2) 
AT*DEV(R2) 
#AT**SZ, R2 
R3, 1* 
<SP>+, R3 
<SP>+, R2 



i Point to assign table 

; Get # assign table entries 

; Is this entry for specified phys device? 

; Br if not 

» Clear logical device name 

iClear physical device name 

/Point to next assign entry 

i Loop if more to check 



RETURN 



( 



i 



f 

i 

i 

< 
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1 

2 






3 






4 






5 






6 






7 






8 






9 






10 






11 






12 






13 






14 001640 


020037 


000006 ' 


15 001644 


001002 




16 001646 


013700 


000002 ' 


17 001652 


020037 


000002 ' 


18 001656 


103410 




19 001660 


020037 


000004 ' 


20 001664 


101005 




21 001666 


163700 


000002 ' 


22 001672 


006300 




23 001674 


000241 




24 001676 


000401 




25 001700 


000261 




26 001702 


000207 





SBTTL LDDEVN — See if device name is a LD unit 



LDDEVN is called to determine if a device name is of the form LDn and 
if soi to determine the unit number. 



Inputs: 
RO = Device name (radSO) 

Outputs: 
C-flag cleared ==> Device is LDn 
C-flag set ==> Device is not LDn 
RO = LD device index number <2*n) 



LDDEVN: 


CMP 


RO, R50LD 




BNE 


1* 




MOV 


R SOLDO, RO 


1*: 


CMP 


RO, R SOLDO 




BLO 


2* 




CMP 


RO, R50LD7 




BHI 


2* 




SUB 


R SOLDO, RO 




ASL 


RO 




CLC 






BR 


3* 


2*: 


SEC 




3*: 


RETURN 





; Is name "LD"? 

; Br if not 

; Replace "LD" by "LDO" 

i Is name in the range LDO to LD7? 

i Br if not 



; Get unit number only 

» Convert to device index number 

i Signal success on return 

;Signal failure on return 



t 

i 



< 
I 
I 
t 



! « 



i 
t 



r 



i 

i 
t 

i 
« 

i 



I 
I 

► C 

I 



TSEM5 
ADLDAC 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



SBTTL ADLDAC — Add LD entry to access control table 



ADLDAC is called to add a logical disk entry to the device/file 
access control table. If there are no protected devices or files 
no entry is made. 

Inputs: 
R2 = Logical disk index number <2 * unit number) 

Outputs: 
C-flag cleared =*> all ok 
C-flag set =«> Access table overflow 



1*: 



001704 010246 
001706 010546 



001710 005737 OOOOOOG 
001714 001446 



001716 006202 



001720 012705 OOOOOOG 

001724 020537 OOOOOOG 

001730 103036 

001732 005765 OOOOOOG 

001736 001403 

001740 062705 OOOOOOG 

001744 000767 



001746 113765 OOOOOOG OOOOOOG 2*: 

001754 110265 OOOOOOG 

001760 012700 OOOOOOG 

001764 010065 OOOOOOG 

001770 010065 000002G 

001774 010065 000004G 

002000 105065 OOOOOOG 

002004 006302 

002006 032762 OOOOOOG OOOOOOG 

002014 001406 

002016 152765 OOOOOOG OOOOOOG 

002024 000402 



ADLDAC: MOV 
MOV 



R2, -<SP> 
R5, -<SP> 



See if there are any entries in the access table 



TST 
BEG 



RESDEV 
4* 



j Any entries in access table? 
i Br if not 



MOV 


#OKFILE, R5 


CMP 


R5, OKFNND 


BHIS 


3* 


TST 


0F*FIL<R5) 


BEQ 


2$ 


ADD 


#OF**SZ, R5 


BR 


1* 



There are entries in the access control table 

ASR R2 i Convert Id index # to unit # 

Find a free entry in the access table 

Point to start of access table 

Reached end of table? 

Br if yes — table overflow 

Is this entry free? 

Br if free 

Point to next entry 

Go check it 

We found a free entry. Add entry for LD. 

MOVB LDDEVX, 0F*DEV<R5>; Set logical disk device index number 

MOVB R2, 0F*UNT<R5> ; Set logical disk unit # 

MOV #WLDNAM, RO ; Set file name to wildcards 

MOV RO, 0F*FIL<R5> 

MOV RO, 0F*FIL+2<R5> 

MOV RO, 0F*FIL+4(R5) 

CLRB 0F*FLG(R5> > Initially clear all control flags 

ASL R2 > Cvt unit # to LD index # 

BIT #LD*RON, LDFLAG(R2)j Is logical disk write protected? 

BEQ 4* ;Br if not 

BISB #0T*R0N, 0F*FLG<R5); Set read-only flag in access table 

BR 4* 



Error — Access table overflow 



002026 000261 
002030 000410 



3*: 



BR 



; Signal error on return 



10$ 



Success! If this entry extends the ACCESS table, bump up the 
table end pointer to include it. 
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58 

59 002032 

60 002036 

61 002042 

62 002044 

63 002050 
64 

65 
66 

67 002052 

68 002054 

69 002056 



062705 
020537 
101402 
010537 
000241 



012605 
012602 
000207 



OOOOOOG 
OOOOOOG 

OOOOOOG 



4*: 



41* 



10*: 



ADD 


#0F**5Z, R5 


CMP 


R5, OKFAND 


BLOS 


41* 


MOV 


R5, OKFAND 


CLC 




Finished 




MOV 


<SP>+, R5 


MOV 


<SP>+, R2 


RETURN 





* Point past this LD ACCESS entry 

; Do uie need to increase last ACCESS ptr? 

j Br if not 

iExtend ACCESS table to contain entry 

j Signal success on return 



>« 



} 



i 

< 
I 

( 

C 

I 

c 

« 

I 

I < 

« 

I 

I < 

i 

» < 



TSEM5 
DLLDAC 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 



. SBTTL DLLDAC — Delete LD entry from access control table 

DLLDAC is called to delete any entry in the access control table 
for a specified logical disk. 

Inputs: 
R2 = Logical disk index number (2 * unit number) 



002060 004737 002124' 
002064 103416 



DLLDAC: CALL 
BCS 



CKLDAC 
1* 



; Is there an entry for this LD in table? 
} Br if not 



We have found an entry in the access table for this LD. 
RO - Pointer to the entry. 



002066 105060 OOOOOOG 
002072 105060 OOOOOOG 

002076 005060 OOOOOOG 



CLRB OF*DEV<RO> 
CLRB OF*UNT(RO) 
CLR OF*FIL(RO) 



Mark entry as free 



002102 062700 OOOOOOG 

002106 020037 OOOOOOG 

002112 103403 

002114 162737 OOOOOOG OOOOOOG 



002122 000207 



If the ACCESS table was extended to include this entry, 
reduce the table end ptr below it. 



t Point past this entry 

; Was it the last entry? 

; Br if not 

; It was> lower the end below it 



1*: 



ADD 


#OF**SZ, RO 


CMP 


RO, OKFAND 


BLO 


1* 


SUB 


#OF**SZ> OKFAND 


inished 




RETURN 





I 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 



002124 010246 

002126 006202 

002130 005737 OOOOOOG 

002134 001417 



. SBTTL CKLDAC — Check if LD is in access control table 

CKLDAC is called to determine if a certain logical disk is in the 
device/file access control table. 

Inputs: 
R2 « Logical disk index number <2 * unit #> 

Outputs: 
C-flag cleared »»> Found logical disk entry in access control table. 
C-flag set ==> Logical disk entry is not in access table. 
RO = Pointer to access control entry. 

i save original LD index number 
/Convert index # to unit # 
■> Are there any entries in access table? 
; Br if not 

There are entries in the access control table. 
Search for entry matching our logical disk. 



CKLDAC: 


MOV 


R2, -<SP) 




ASR 


R2 




TST 


RESDEV 




BEG 


4* 



002136 012700 OOOOOOG 

002142 020037 OOOOOOG 

002146 103012 

002150 126037 OOOOOOG OOOOOOG 

002156 001003 

002160 120260 OOOOOOG 

002164 001405 

002166 062700 OOOOOOG 

002172 000763 



002174 000261 
002176 000401 



j Point to start of access table 
{Checked all entries? 



MOV #QKFILE, RO 

1*: CMP RO, OKFAND 

BHIS 4* i Br if so 

CMPB OF*DEV(RO),LDDEVX ; Is this entry for a logical disk? 

BNE 2* iBr if not 

CMPB R2, OF*UNT(RO> J Is entry for specified unit? 

BEQ 3* iBr if yes — found entry 

ADD #OF**SZ> RO > Point to next access entry 

BR 1* j Check all entries 

LD entry is not in access table 



2*: 



4*: 



SEC 
BR 



; Signal failure on return 



9* 



Found LD entry in table 



002200 000241 
002202 012602 
002204 000207 



3$: 

9*: 



CLC 
MOV 
RETURN 



<SP)+, R2 



i Signal success on return 
j Recover LD index number 



i 

f 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



002206 
002210 
002212 
002214 



002216 
002222 
002226 



002230 
002232 
002236 
002242 
002246 
002250 
002254 
002260 
002264 



002266 
002272 
002276 



002300 
002304 
002310 
002312 
002316 
002322 
002324 
002332 
002334 
002340 
002344 
002350 
002352 
002354 



010146 
010346 
010446 
010546 



016204 
066204 
005003 



010305 
013700 
062700 
020527 
103404 
162705 
062700 
070527 
060005 



016500 
032700 
001427 



042700 
020037 
001022 
116501 
042701 
006301 
026162 
001011 
016500 
066100 
020062 
103402 
020004 
103406 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
000021 

000021 

OOOOOOC 

OOOOOOG 



OOOOOOG 
OOOOOOG 



, SBTTL LDOFCK — See if any files are open on a logical disk 

LDOFCK is called to determine if the current job has any files 
open on a specified logical disk. 

Inputs: 
R2 = LD unit index 

Outputs: 
C-flag set if any files are open on the LD. 



LDOFCK: MOV 
MOV 
MOV 
MOV 



Rli-(SP) 
R3, -<SP> 
R4, -<SP) 
R5, -<SP) 



Begin loop to check each channel 



MOV LDBASE<R2),R4 
ADD LDSIZE<R2>,R4 
CLR R3 



Get base block # of LD 

Get block # above top of LD 

Start with channel 



Compute address of channel block for this channel 



1*: 



>*: 



MOV R3, R5 

MOV CXTRMN, RO 

ADD #R*CHN, RO 

CMP R5, #17. 

BLO 2* 

SUB #17. , R5 

ADD #R*XCHN-R*CHN, RO 

MUL #CHNSIZ,R5 

ADD RO, R5 

See if this channel is open 



Get channel number 

Get address of simulated rmon 

Point to 1st channel area 

Is this channel in extended channel area7 

Br if not 

Get channel # in extended channel area 

Point to extended channel area 

Multiply by # bytes per channel 

Get absolute address of channel block 



MOV C. CSW<R5),R0 

BIT #CS*OPN, RO 

BEG 3* 

See if file is within LD 



i Get channel status word 
» Is this channel open? 
; Br if not 



177701 
OOOOOOG 

OOOOOOG 
177770 

OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 



BIC 

CMP 

BNE 

MOVB 

BIC 

ASL 

CMP 

BNE 

MOV 

ADD 

CMP 

BLO 

CMP 

BLO 



#~C<76>, RO 

RO, LDDEVX 

3* 

C. DEVQ<R5),R1 

# A C<7>, Rl 

Rl 

LDPDEV<R1 ), LDPDEV<R2); Are LD's on same physical drive? 



Extract device index number 

Is file on a logical disk? 

Br if not 

Get unit number 

Extract unit # 

Convert unit # to index 



3* 

C. SBLK(R5),R0 

LDBASE(R1>,R0 

RO, LDBASE<R2) 

3* 

RO, R4 

4* 



Br if not 

Get base block of file 

Add base block of LD file 

Is it below base of LD? 

Br if yes 

Is it above top of LD? 

Br if it is within LD 



is on 
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3*: 



58 
59 

60 002356 005203 

61 002360 020327 OOOOOOG 

62 002364 103721 
63 

64 
65 

66 002366 000241 

67 002370 000401 
68 

69 

70 

71 002372 000261 

72 

73 

74 

75 002374 012605 

76 002376 012604 

77 002400 012603 

78 002402 012601 

79 002404 000207 
80 

81 000001 

Errors detected: 

##* Assembler statistics 



Work file reads: 

Work file writes: 

Size of work file: 9621 Words ( 38 Pages) 

Size of core pool: 18176 Words < 71 Pages) 

Operating system: RT-11 

Elapsed time: 00:00:23.01 
, LP: TSEM5=DK: TSEM5/C/N: SYM 



Check next channel 

INC R3 

CMP R3, #NLCHN 

BLO 1* 

No file is open on the LD 



CLC 
BR 



9* 



;Advance channel # 

i Checked all channels? 

i Br if more to check 



i Signal OK on return 



There is a file open on the LD 
4*: SEC 
Finished 

9*: 



Signal error on return 



MOV 
MOV 
MOV 
MOV 
RETURN 

. END 



<SP)+, R5 
<SP)+, R4 
(SP)+,R3 
<SP)+, Rl 
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. . . VI 


3-109 


9-34 


9-34 


9-34 


9-68 










. . . V2 


3-109 


3-109 


3-109# 


3-109# 


9-34 


9-34 


9-34# 


9-34# 


9-68 


ADLDAC 


9-72 


14-14# 
















ASNSRC 


10-13# 


11-22 
















ASNTBL 


1-38 


10-15 


12-12 














AT**SZ 


1-39 


10-18 


12-18 














AT*DEV 


1-39 


11-29 


12-14 


12-17* 












AT*EXT 


1-39 


11-34 
















AT*FIL 


1-39 


11-30 


11-33 














AT*LOG 


1-38 


10-16 


12-16* 














AT*SIZ 


1-39 


11-37 
















C. CSW 


1-36 


3-15 


9-42 


9-53 


17-37 










C. DEVQ 


1-35 


9-45 


17-46 














C. SBLK 


1-35 


9-48 


17-51 














CHNADR 


1-36 


3-14 


9-41 














CHNSIZ 


1-34 


17-32 
















CKLDAC 


15-9 


16-14# 
















CS*OPN 


1-36 


3-15 


17-38 














CS*RON 


1-35 


9-53 
















CS1ARE 


1-37 


1-54 


1-59 


3-109 


3-116* 


7-25* 


8-27* 


8-42* 


9-34 


CSIFIL 


1-37 


3-50 


3-59 


3-61 


3-63 


3-70 


3-83 


3-109 




CXTRMN 


1-34 


17-26 
















DEADEV 


12-10# 


















DIEARG 


2-18 


















DIEMSG 


2-18 


















DLLDAC 


9-23 


15-9# 
















DMTARG 


l-58# 


7-28 


8-30 














EMTBLK 


1-36 


3-22 


3-47 


3-91 


3-98 


3-108 


3-114 


3-123 


4-12 


EMTXIT 


1-38 


3-128 


4-37 


5-61 


6-42 










LD*RON 


1-38 


3-93 


5-42 


9-55 


14-46 










LDAEMT 


1-30 


6-8# 
















LDBASE 


1-35 


9-48* 


9-64 


9-64* 


17-19 


17-52 


17-53 






LDCLEN 


3-124 


8-10# 
















LDDEMT 


1-30 


4-8# 
















LDDEVN 


3-71 


13-14# 
















LDDEVX 


1-35 


9-60 


14-38 


16-25 


17-44 










LDDMT 


4-30 


6—28 


7-13# 














LDFLAO 


1-37 


3-90* 


3-93* 


5-42 


9-55* 


14-46 








LDIEMT 


1-30 


5-ll# 
















LDMEMT 


1-30 


3-10# 
















LDMNT 


3-99 


8-36 


9-18# 














LDNAME 


1-37 


3-40 


3*"Oc 


4-23 


5-31 


6-23 


7-37* 


8-22 


9-29 


LDOFCK 


7-17 


17-12# 
















LDPDEV 


1-38 


5-45 


7-34* 


8-40 


9-44* 


9-47* 


9-63 


9-63* 


9-81* 


LDSIZE 


1-35 


9-37# 


17-20 














LOGASN 


3-60 


11-16# 
















MAXASN 


1-38 


10-14 


12-13 














MAXLD 


1-36 


3-23 


4-13 


5-16 


8-50 










MNTARG 


l-53# 


3-117 


8-43 














NLCHN 


1-34 


17-61 
















OF**SZ 


1-40 


14-33 


14-59 


15-22 


15-25 


16-29 








OF*DEV 


1-40 


14-38* 


15-15* 


16-25 












OF*FIL 


1-40 


14-31 


14-41* 


14-42* 


14-43* 


15-17* 








OF*FLG 


1-41 


14-44* 


14-48* 














OF*UNT 


1-41 


14-39* 


15-16* 


16-27 












OKFAND 


1-40 


14-60 


14-62* 


15-23 


15-25* 


16-23 









9-68# 



5-15 5-23 



4 

I 
I 



17-49 17-49 



I 
I 



f 
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OKFILE 


1-40 


14-28 


16-22 






OKFNND 


1-40 


14-29 








OT*RON 


1-41 


14-48 








OVRHC 


1-36 










PS 


l-22# 










R*CHN 


1-34 


17-27 


17-31 






RSXCHN 


1-34 


17-31 








R50DK 


l-48# 


11-45 








R50LD 


l-47# 


13-14 








R SOLDO 


l-45# 


3-115 


7-24 


8-15 


13-16 


R50LD7 


l-46# 


13-19 








R50SY 


l-49# 


11-43 








RESDEV 


1-40 


14-19 


16-16 






SERFLG 


1-38 
9-35* 


3-106 


3-107* 


3-110* 


7-26 


SETERR 


1-36 

6-38 


3-18 


3-26 


J""wu 


3-43 


SYNAME 


1-39 


11-47 








SYSHLT 


2-18 










TSEM2 


1-21# 










VALADW 


1-37 


3-49 


5-24 






VLDSYS 


1-37 


3-30 








WLDNAM 


1-41 


14-40 









13-17 13-21 



7-27* 


7-30* 


8-28 


8-29* 


8-32* 


9-32 


3-66 


3-76 


3-102 


4-16 


4-26 


4-33 



9-33* 
5-19 
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c 

f 

> < 

1 f 

I 
I 



. . . CM1 


3-109 


9-34 


. . . CM2 


3-109 


3-109 


. . . CM3 


9-68 




. . . CMS 


3-109 


9-34 


. FPROT 


l-26# 


3-109 


. LOOKU 


l-26# 


9-34 


. PURGE 


l-26# 


9-68 


DIE 


2-19# 




DISABL 


2-4# 




ENABL 


2-8# 




OCALL 


2-31# 





9-34 



9-34 



